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RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 
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RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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A | 
003 ZTITLE ‘DSR directive dispatcher: r' 
DENT 


~~ 


§ MODULE docm ( 
BLISS32C, ADDRESSING _MODE (EXTERNAL = =_LONG_RELATIVE 
004 ' NONEXTERNAL = LONG-RELATIVES 
Ss 


BEGIN 


PSPPSESSELILIT SITET EET TT TTT TCC Tec ree etic cect ic ccc circ iii iit ic ti iiiie | 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
i® ALL RIGHTS RESERVED. 


!* THIS SOFTWARE 4 FURNISHED UNDER A ie AND Aa A 9 AND gt hd 


: OTIC "sor Tw RE 

:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
- Pannerenatee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
'® 


i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Hd OORPORAT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!t DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


aeeeneeneneneneeeeneneeennennnene 


PITTTITILITILILI LLL TLL LLL LLL LiL liiiiiiiiiiiiiiiiiiiiit 
i 


i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: Command dispatcher. 
ENVIRONMENT: Transportable 

! AUTHOR: R.W.Friday CREATION DATE: May, 1978 
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DOCM DSR directive dispatcher 16-Sep-1984 00:12:49 VAX-11 Bliss-32 V4.0-7 
v04-000 Revision History er3ep= 138s 98:08:83 «SN csumbaastenschonore 
> © 41 1 ZSBITL ‘Revision History’ 
a Oc¢ 1! ' 
> «644 045 1 ! MODIFIED By: 
; 45 044 1! 
; 045 1! 02y KFA00029 Ken Alden 04-Aug-1983 
; of Bpe$ : } Added(dsrplus) .dis/enable Appendix, H_page_now. 
.. a Sock 1! 028 KFA00028 Ken Alden 03-Aug-1983 
; 29 Bpep : Added(dsrplus) DIS/ENABLE CHAPTER 
ce 0051 1: 027 REROOO27 Ron Randall 12-May-1983 
3 6 Boag 13 Minor edit. 4 
; 0 1! 
: 0054 1! 026 KAD00026 Keith Dawson 9-May-1983 
3 2$ Bete : Remove support for .DX, .PX. 
; 0057 1! 025 REMO0025 Ray Marshall Apr-1983 
; WW 0058 1! Modified .APPENDIX & .CHAPTER dispatching for DSR to use the 
; @& 0059 1! routine HEADER instead of CHAPT to support the chapter/ 
; 6) 0060 1! appendix Fecouel ing. 
A 62 0061 1! Modified .DISPLAY APPENDIX & .DISPLAY CHAPTER dispatching for 
; 6D 0062 1! DSR to use routine DSPENT instead of DSPPAG to support the 
; 664 0065 1! chaster/ append ss et ty t 
; 0064 1! Modified .NO CHAPTER di geete ing for DSRPLUS to use routine 
; © 0065 1! HEADER instead of CHAPT. This change makes CHAPT obsolete 
; p44 +4] : from here on in both DSR & DSRPLUS. 
; & 0068 1! 024 KFA00024 Ken Alden 21-Apr-1983 
; 0069 1! For DSRPLUS: changed the name of the handling routine 
: a Booe : for DISPLAY COUNTER to CNTTXT. 
oi ao 0072 1! 023 KAD00023 Keith Dawson 14-Apr-1983 
s 76 0075 1! For DSR, temporarily added dopx routine back in. 
3 a Bote ; (Will be removed altogether, later. 
; fr 0076 1! 022 REROOO022 Ron Randall 12-Apr-1983 
; A Bore : For DSRPLUS: Added code for footnote numbering. 
; 80 0079 1! 021 REROOO021 Ron Randall 17-Mar-1983 
. 8 0080 1! For DSRPLUS: Added code to handle topnotes. 
; 662 0081 1! Deleted passthrough flag code. 
; at4 1! Eliminated handling of print index. 
; 1 et : Replaced dopx routine with dindex. 
3 6 0085 1! 020 KFA00020 Ken Alden 15-Mar-1983 
; OF 0086 1! For DSRPLUS: Changed handling of passthrough flag 
; & 0087 1! to now be pectial’ handled by OFT. 
3 34 44 : BEGIN/END PASSTHROUGH are now not supported. 
; Ww 0090 1! 019 KFA00019 Ken Alden 07-Mar-1983 , 
a. 9 0091 1! Global edit of all modules. Updated module names, idents, 
; $, 943 ! copyright dates. Changed require files to BLISS library. 
: 95 094 1 
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MSBTTL "Module Level Declarations’ 
i INCLUDE FILES: 


LIBRARY 'NXPORT:XPORT'; 
REQUIRE "REQ:RNODEF '; 


IF DSRPLUS 2THEN 
BRARY "REQ:DPLLIB'; 


L 
ane: *REQ:DSRLIB'; : 


EQUATED SYMBOLS: 


EXTERNAL LITERAL 
rintes : UNSIGNED (8); 


EXTERNAL REFERENCES: 


EXTERNAL LITERAL 
rnfiit; 


EXTERNAL ROUTINE 
endchr, 
foonum; 


EXTERNAL LITERAL 
rnfcns, 
rnfift, 
rnfjec, 
rnfurr; 


EXTERNAL ROUTINE 
aline, bars, 
dle, docase, dsppag, dsphl, 
erma, ermn, 
n, getnum, gtabs, 


dspent, ! For .display { example 


EXTERNAL 
figt : flag_table Cflag_count], 
fnct : fnct_definition, 
ca : 9ca_detinition, 
ra : Tixed_ string, 
khar, 
numprm : numprm_define, 
sca : sca_deTfinition; 
ZIF DSRPLUS ZTHEN 
EXTERNAL 
l_character, 
r_character, 
topnot : tn definition; 


XPORT Librar 


! RUNOFF variant definitions 


DSRPLUS BLISS Library 


DSR BLISS Library 


carage, concat, contri, 
elsen 
figure, fjinfnj, flgsem, 


figure | table | appendix 
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16-Sep-1984 09:12:49 VAX-11 Bliss-32 V4.0-742 Pa Docr 
v04-000 Module Level Declarations 14-Sep-1984 15:05:59 DISKSVMSMASTER: CRUNOFF ..SRCJDOCM.BLI;1 (3 Vv 


Nn 


; 1546 1 

; 155 U : 1 ZIF DSRPLUS XTHEN 

e+e $ U 4 1 dindex, ' For .do index 

ss U > ® tpnote, ! For .topnote { ,no | ,begin | ,end }, .topnote on. 
s 158 U $ 1 cref, ! For .referencepoint 

; 159 U 1 cnttxt, ! For .set { counter | textstring }and .display counter. 
; 160 U : 1 sencon, ! For .send contents. 

3; 6161 u 0 1 numfoo, ' For .number footnote. 

: 106 U 8 90 1 dtable, ' For .do table. 

; 16 U 0291 1 docont, ' For .do contents. 

$ 164 U Os36 1 xplus, 

18 gym 

3 187 33 : styie. For .style { example : figure | table }. 

; nodopx, 

3 19? 35 1 header, ! For .header { level | example | figure | table }. 
; 109 6 38 : seyres. ! For .save and .restore. 

; s ° 

3 176 0300 1 ififne, layout, 

3 \t? tet : dea? Lit, makndx, nm, note. oft, : 

3 outn), age, anpa, parag, period, repeat, 

; 175 o358 1 req, Ser ibe. Seteat, ett i, ote, std, 

: 176 0304 1 subpag, titles, vr, xcase; 

: 177 0305 1 


! Inform user that DX, -PX are no longer sup oreges 
| 


] 
k 3 | 
DOCM DSR directive dispatcher 16-Sep-1984 00:12:49 VAX-11 Bliss-32 V4.0-742 Page 5. 
v04-000 DOCM == routine header ae 99 08:89 DISKSVMSMASTER: CRUNOFF ..SRCJDOCM.BLI;1 (4) | 
: 179 06 1 XSBTTL "DOCM == routine header’ 
; 180 44 } GLOBAL ROUTINE docm (handler, action list) : NOVALUE = 
: 
3 i8¢ 0309 1 !+4+ 
3 \e? 8 19 ! FUNCTIONAL DESCRIPTION: 
> 185 0 1 1 i Thés routine is mainly a node from which all the | 
; «186 0315 1! commands branch out to their corresponding modules. 
: + 14 8 \% ! The only processing done here is: 
: 189 0 16 1 i 1. Interpretation of bits stored in the tables 
3; 190 1 1! ¢° Skipping spaces and tabs after a command has completed 
; «191 16 1! . Detecting Punk not picked up by the command 
3 136 17 33 routines, and issuing an error message 
8 13? 8 } 4. Skipping comments after commands 
: 195 03 é FORMAL PARAMETERS: 
: 197 $3 4 1: handler - unique integer that specifies exactly which 
: 198 0325 1! command the user typed. 
: «199 B39 1! action_list = set of bits that specify additional processing 
; 200 O35 1! to take place before the actual command is 
; 201 83 5) as carried out. 
‘ $08 8383 : See KWITEM.REQ for a description of the bits. 
: 204 0331 1 | IMPLICIT INPUTS: None 
: 205 03 ; 1! 
: 206 0333 1 =! IMPLICIT OUTPUTS: None 
; 207 tte 1! 
; 208 0335 1 ! ROUTINE VALUE: 
: $98 b338 : COMPLETION CODES: None 
: 211 0338 1 | SIDE EFFECTS: None 
3 sig 0339 1 !e=- 
s at 0340 1 | 


DOCM 
v04-000 


ow 
= 


8 


ow 


3 
seca trect ive preprocessing igoseort9ge Q0:1g4g ated 
} ZSBTTL "DOCM == directive preprocessing’ 
BEGIN 
Interpret the various action bits associated with each command. 


IF .gca_skippin 
THEN — 


Liss-32 V4.0-742 Page 6 
MASTER: CRUNOFF .SRCJDOCM.BLI;1 (5) 


SS) 


In the FALSE branch of an .IF command. 
iF NOT .kwitem_rif (action_List) 
THEN | 


RETURN; 
This command is illegal in a footnote. 
ify tnet_collecting AND .kwitem_iif (action_List) 
i] 


INI. NAIA POPU nonenonongons 2 


Skip to end of command and issue message. 


BEGIN 
erma (rnfift, true); 
RETURN; 
END; 
DSRPLUS XTHEN 
This command is illegal in a topnote. 


Pe 
be 
nm” 


\ 
Skip Lines containing commands not related to .IF. 
if -tnicollecting AND .kwitem_iit (action_List) 
THEN | 

Skip to end of command and issue message. 


BEGIN 
erma (rnfiit, true); 
RETURN; 


cccceccceccccce 
CGOOOOSOOCOCOCOCOCOOSOSOSSGOOCOSOSOSOSSOSSOOCOOCOSCOSCSSOSOCOC OOO COOCOOOOOOCSOOOOCOOOO Vga 


‘ 


IF _ .kwitem_do_outnj (action_List) 
THEN 


BEGIN 
outnj ); 
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Cancel pending indentation only if from an ‘‘auto-ed"’ paragraph. 


if -SCa_para_pnd 
THEN 
sca_indent = 0; 


REPPIN IAIMDNDNININMNININPINININININININYNININININININIAINININGNIPNINIPINININPIPONPO PUNY NOPNOPNoPofonofonofonony»d 


LSSRESLSSE NOUS WN 0 OONOAUE WIN OOD NA NEW =O OODNOU EW OOONOU Sw 


AA AAA AAI PDIPOPUPIPINIPONIPNPINPYPINPONPNPoNNy 
td 
a | 
— 


oovonownowond 
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sca_para_pnd = false; 


a 
} 
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v04-000 OCM -- d rect ve preprocessing 12-888 1382 99: 48; #8 DISKSVMSMASTER: CRUNOFF.SRCJDOCM.BLI;1 fage (5) vo" 
s 27 9 END; 
: 58 335 
: 274 ret IF_ .kwitem_do_getnum (action_List) 
; t Ben) THEN 
; AA 0405 Pick up a single number that might be provided. 
: 279 0405 num_result = getnum (ira, num value, num sign, num_length); 
; 280 0406 2 


—————S_—_— ee ee 


N 3 
DOCM DSR directive dispatcher 16-Sep-1984 00:12:49 VAX-11 Bliss-32 V4.0-742 P 
v04-000 DOCM == command dispatching 127808 - 1382 90:08:28 DISKSVMSMASTER: RUNOFF .SRCIDOCM.BLI:1 > (68 


| 
| 
407 ZSBTTL 'DOCM == command dispatching’ | 


er ee 


stata!” | ites FROM first_command TO Last_command OF 


co 
io 


Ch_appendix, h chapter] : 

Reader (handler): 

Ch_display_subpa, h_display_numbe] : 
dsppag Ushandle?); steed 


U X%IF DSRPLUS %THEN 
U SELSE h.display_appen, h_display_chapt, h_display_head] : 
er Ch_display_appen, h_display_chapt] : 


Ch_display_levei] : 
w dana U.nendlert: 


Ch_display_eleme]) : 
x" dle U Rendler): 


BDOCOCOSCOCOOOOOOO0O0OOOMMC 
ODONAVULSWN (SO OONOUS WN O0OOn 
SSSOSSOOOOCSOSOSOSOSOSOOOSOOOOOOOOOOOCOOOOCOO 


BRRRRR RRR RRR RRR RRR RRR PRR PPR PRE 
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Ch_print_index] : 
nodopx (.handler); 


Ch_entry, hindex, h_subindex] : 
makndx T.handler; .sca_index); 


Ch_xlower,h_xupper] : 
xcase (.handler); 


prey pee hye ne Ie tte te eee EO EST thet het betel tefl tet fa bah PE OS ON eh eh a a 


2 
2 

U ZIF ee XTHEN 

U h_do_contents] : 

: § docont (.handler); 
10 U 2 Ch_do_table] : 
11 U 2 dfable (.handler); 
i 2 XFI 
1 2 
14 2 Ch_comment) : 
15 0440 2 endcmt (); 
16 0441 § 
17 0442 Ch_begin_bar, h_end_bar, h_enable_bar, h_disable_bar] : 
18 Be ? § bars (.handTer); 
20 0445 2 Ch_control_chara, h_no_control_ch] : 
21 0446 2 contrl (.handler); 
22 0447 
23 0448 Ch_do_index] : 
24 U 0449 IF DSRPLUS ZTHEN 
$ U index (.handler); 

ZELSE 

2 nodopx (.handler); 
2 xFI 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 


ONOUSWN—-OOCOnNOuU 
SELPPPLLLELELE 
PEEP MMAMAMAMIVNIv 
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dspent (.handler); 
| 
| 
| 
} 
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DOC DSR directive dispatcher 1e-se -1984 00:12:49  - VAX-11_Bliss-32_V4.0-742 Page 9 DOCK 
v04-000 DOCM == command dispatching ie-Sep-19 4 99:08:86 DISKSVMSMASTER: CRUNOFF .SRCJDOCM.BLI;1 . (6) v04- 
; 339 0464 Ch_center, h_right, h_left, h_indent] : 
; 340 465 i aline (.Randler);~ 
g 36h rh ¢ 
; 3 U 046 “IF saneeh «1 THEN 
; 34 U Bees h_referencepoin] : 
> 344 U re) cref (.handler); 
> 345 0470 xF 1 
Se he. [h_right_margin, h_lef in, h ize] 
: 3a ., margin eft_margin, h_page_size] : 
; 348 8238 pee Cchandlery; . _ 
; 349 0474 
; 590 0475 Ch. figure. h_figure_deferr] : 
> Ban 0476 figure (.handler); 
; 326 0477 2 
; #35 0478 2 Ch_footnote, h_end_footnote] : 
: 354 0479 2 fn (.handler); 
} aoe 0480 2 
; 356 0481 § Ch_fill, h justify, h_no_fill, h_no_justify] : 
s «Sor eT finftnj (.handler); 
: 330 048 § 
; 359 0484 Ch_keep, h_no heer. h_autojustify, h_no_autojustif): 
; 360 0485 2 fjinfnj (.Randler); 
; 361 0486 2 
; 306 0487 2 Ch_list, h_list element) : 
: % 0488 2 List (ThandTer); 
; 364 0489 2 
3 3eo 0490 2 Ch_note] : 
: 366 0491 2 note (.handler); 
3; 367 0492 2 
; 368 0495 2 Ch_end_list, h_end_note] : 
3; (U9 0494 2 elsen (.handler); 
s ae 0495 2 
Se a 0496 2 Ch_header_level, h_set_level] : 
cm 0497 § header (.handler); 
.. oe 0498 
: 374 U 0499 ZIF DSRPLUS ZTHEN 
3; ors U 0500 Ch_header_exampl, h_header_figure, h_header_table 
: 376 U 0501 header (.handler); 
care U B26 
s. 378 U 050 Ch_begin_topnote, h_end_topnote, h_topnote_on, h_n ‘opnote] : 
; 44 y Babe 2 tpnote (.handler); 
; 381 U 0506 [h_display_examp, h_display_figur, h_display_table] : 
: $¢ U ret " dspent”t handle?) ; pr ingle testis. 
; U 0508 
; 384 U 0509 Ch_display_count] : 
s 3e5 U 0510 cnttxt (.handler); 
: 386 U 0511 | 
; Sev U b2i¢ Ch_number_exampl, h_number_figure, h_number_table] : 
: He ¥ a7 nm (.Randlers; | 
: 390 U 0515 Ch_style_example, h_style_figure, h_style_table, 
: 5391 U 218 h_style_appendi, h_style_chapter): 
3 3 U 051 style (.handler); 
; 39 218 ZF I 
: 394 51 
; 395 520 Ch_style_headers) : 
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style (.handler); 


Ch_no_space] : 
concat (. handler); 


Ch_number_page, h — sTesct: f _number_chapte 
h- =nuaber index, R_number 
(.Randler) 3 


Ch_ Uiyergt, end_literal] : 
Lit (.handler); 


Ch_hyphenation, h_no_hyphenatioj: 
Hecen ehandTerJ; ” 


Ch enable_hy yenets 2 enable_boldin, h_enable_indexi, 


h-enable_ guneer 
flgsem (.handler); 


Ch_d 
h_disable_under 
flgsem (.handler); 


Ch_enable_toc, h Giseble. toc] : 
flgsem (.handler); 


Ch_send_toc] 
stc “f° chandler, -gca_btc); 


xI1F cet. THEN 


_send_contents] : 
senton (. handler, -gca_btc); 


Ch_save, h ~save all, h_restore] : 


savres (.handler, 1); i The "1" means internal code: 


Z1F iat ZTHEN 
set_counter, set_textstrin] : 
enttxt ( handlees? ; 


Ch_period, h_no_period] : 
nats Thandler); 


Ch_repeat) : 
repeat (. handler); 


Ch_require) : 
req (. handler); 


Ch_ stenderd) 
std ( -handler); 


Ch_tab sptops) 
gtabs ( -handler); 
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evel, h_number_List, 4 ~ 


h_enable_overst, 


isable_hyphe, h_disable_boldi, h_disable_index, h_disable_overs, 
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Ch_upper_case, h_lower_case] : 
docase (.handler); 

h_paragrap set_paragraph] : 
pares ( handlerT< es 


Ch. flags all, h_no_flags_all] : 
oft T.handlér, 0); 


Ch. flops bold, h_no {Lege bold3 : 
oft T.handler, Bld_flag); 


Ch. flags break, h_no_flags_brea] : 
oft T.handler> brk_flag); 


Ch_flags capital, h_no_flags_capi] : 
oft Uhendler, Zapf les): r 


Ch. floes comment, h_no_flags_comm] : 
oft T.handler, Com_flag); 
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AAA ANAMNMAMMVIVIVIVIVIVIVIVIVIVIVILA «=O 
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ch flops control, h_no_flags_cont] : 
) 


$68) : T.handler, Con_flag); 
0603 2 Ch. flops endfoot, h_no_flags_endf] : 
pone § oft T.handler, @fo_flag); 
0606 2 Ch_flags_hyphena, h_no_flags_hyph] : 
eet - oft T handler, Ryp-t les): a 
0609 Ch. flags index, h_no_flags_inde] : 
Ree § oft T.handler> ind_flag); 
0612 2 Ch. flags lowerca, h_no_flags_lowe] : 
pei? § oft T.nandler, Tow_flag); 
0615 Ch_flags overstr, h_no_flags_over] : 
Bets oft T.handler, ovr_flag); 
0618 Ch_flags_period, h_no_flags_peri] : 
. pol? 7 oft Chondler, pet fleets 
4 621 Ch_flags_quote, h_no_flags_quot] : 
199 a6 ¢ 4 oft tohandlers quo_f 25): 
498 06 
499 0624 Ch. flags apace h_no_flags_spac] : 
230 36 5 oft T.handler> spa_flag); 
206 6 $ Ch. flags subinde, h_no_flags_subi] : 
87 3 oft T.handler, Sbx_flag); 
505 630 Ch. flogs substit, h_no_flags_subs] : 
631 oft T.handler, Sub_flag); 
$8 6 ‘ Ch flogs underli, h_no_flags_unde] : 
509 0634 oft T.handler, Gnd_flag); 
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| 
: al? $32 Ch_fl h_no.fl } | : 
; flags upperca, h_no_flags_uppe] : : 
; \¢ ? $ oft thondler, Gpp-flani oe : 
. | . 
> 514 U 06 5 tIF sated 14 THEN : 
3 319 U 0640 4 hbegin_passthr. h_end_passthrou] : ; 
: 1 U 0641 4 flgpas (.handler); 3 
gs 3} ots tFI | : 
; 218 Sti Ch_blank, h_break, h h_skip, h i h ] | 
; -blank, rea age, h_skip, h_spacing, h_test_page] : : 
; 2 , Dees carage Tehandler}: : 4 oe. = : 
; 3 ¢ U Oe? ZIF DSRPLUS X%YHEN 3 
3; >? U 0648 h_page_now): 3 
> 524 U 9) carage (.handler); | : 
3 dee 50 2FI : 
-* $ 0651 : 
3 > 8036 Ch_variable) : F 
; 528 065 ve (.handler); $ 
; 268 0654 3 
3 320 0655 Chif, h_ifnot, h else, h_endif] : ; 
i 331 0656 ififie (.handler); : 
3 238 0658 Ch_date, h_no_date, h_first_title, h_subtitle, : 
3 336 0659 h-no_subtitlée, h_titTe, h_dutosubtifle, h_no_autosubtit, : 
3; 330 0660 h_headers_lower, h_headers_on, : 
; 536 0661 h_headers_mixed, h_headers_upper, h_no_headers, h_no_number] : : 
3 357 066 titles (.handler); : 
; 538 066 3 
3; 5 U 0664 <IF gal . ZTHEN ; 
; 540 U 0665 h_autotitle, h_no_autotitle, h_first_title_a] : Fs 
; «(541 U 0666 titles (.handler); : 
; ot¢ U 0667 : 
; 54 U 0668 Ch_number_footno, h_no_number_foo] : 3 
> 544 U 0669 numfoo (handler); 3 
; 545 U 0670 3 
: 546 U 0671 Ch_enable_chapte, h_disable_chapt, h_enable_append, : 
; 547 U poze hadisablé_appen, h-no_chapter]) : 3 
; 28 U ger header (.handler); 3 
; 549 74 xf I : 
: 33 O67% [h_paging, h ing] 
3 aging, h_no_paging]) : $ 
3 226 me aires (Rendleths” 
3 87 rg Ch_set_date] : 
3: 355 0680 setdat (.handler); 
: 228 set 
; 55 § Ch_set_time] : 
; 558 068 settim (.handler); 
: 386 rt [h_sub h_end_ subpage] 
; subpage, h_end_ subpage] : 
; 6) subele (Randler): ° 
: 568 688 Ch_layout) : 
3 206 ? 9 layout (.handler); 
; 566 U 0691 ZIF DSRPLUS XTHEN 
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Ch_xplus, h 
Sennda opust -$ca_index); 


Ch_enable -¥P lus. h_disable_xplus) : 
xplus (.handler); 


Ch_flags_nopermu, h_no_flags_nope] : 
oft if hondler, npx_ “tlag)i ; . 
Cinrange] : 
ermn (rnfcns, ehandler); 


Coutrange] : 
ermn (rnfurr, 


TES; 


-handler); 
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U XIF DSRPLUS XTHEN 
4! es IF_ .fnct numbering AND (.fnct_first_line EQL 2) 
9 U BEGIN 
94 U ; 
22 . } Reset the flag that triggered this action. 
ie u fnct_first line = 0; 
99 U i Set up the footnote number digits. 
4 : p umber digits 
601 U foonum (); 
60 U : 
et } Write the footnote number in brackets. 
605 u endchr (%C'C'); 
144 : IF .fmct_mumber_l NEQ 0 THEN endchr (.l_character); 
0 U endchr (.r_ haracter); 
610 : endchr (4C73"); 
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i The following code positions past any text still left after 
' the command parameters have been processed. Such text should not have 
been there in the first place, and constitutes a syntax error. 


“ 
OOO NA NEW 0 OD NA UE WIN $$ O OD NAUE WN $0 OONOAUE AR" OOONOUF WHO 


erma (rnfjec, true); ! Skip to end of command and issue message 
RETURN; 


END; ! End of DOCM 


6 
6 
fe ; 
611 
ol¢ 2F I 
61 
614 IF (.khar EQL rintes) OR 
615 ‘. khar EQL %C'; 
616 (.KHAR EQL flgt Ccon_flag, flag_character]) 
617 THE 
618 RETURN; 
619 
620 IF noe Ccom flag_enabled] AND 
6 1 . ar EQL Sitcom _tlag, flag_ sheructeedi ! Trailing comment? 
es Beha 
: p trailing comment. 

625 7 i . 
626 75 BEGIN 
627 75 endcmt (); 
628 75 RETURN; 
629 2 END; 
6 7 

75 : 

75 : 

75 : 

75 ‘ 

760 


eocresee. 
eipeieacs 
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| 
“pa | 
.EXTRN RINTES, FLGT, FNCT | = 3 
“EXTRN GCA, IRA, KHAR, NUMPRM ; 1 
“EXTRN SCA. RNFCNS, RNFIFT : 4 
-EXTRN RNFJEC, RNFURR, ALINE ; 1 
“EXTRN BARS, CARAGE, CONCAT i 
TEXTRN CONTAL, DLE, SE mis 
.EXTRN DSPPAG, DSPHL, ELSEN : 
“EXTRN ENDCMT. ERMA, a} 
~EXTRN FIGURE, FJNFNJ, FLGSEM ry} 
SEXTRN FN, G GTABS 9 
SEXTRN DSPENT, STYLE, NODOPX .- 1 
-EXTRN HEADER, SAVRES, STHL 4 
-EXTRN IFIFNE, LAYOUT. LIST ‘1 
“EXTRN LIT NDX 
“EXTRN NOTE, OFT, OUTNJ 
-EXTRN PAGE, PANPA, PARAG 
-EXTRN PERIOD, REPEAT, REQ 
sEXTRN RSKIPS, SETDAT, SETTIM 
SEXTRN STC, STD, SUB 
EXTRN TITLES, VR, XCASE 
.PSECT $CODE$,NOWRT,2 
00FC 00000 .ENTRY DOCM, Save R2,R3,R4,R5,R6,R7 : 0307 
57 000000006 EF 9E 00002 MOVAB ENDCMT, R7 : 
56 000000006 EF 9E 00009 MOVAB IRA, R : 
55 000000006 EF 9E 00010 MOVAB FLGT+80, RS : 
54 000000006 EF 9E 09017 MOVAB NUMPRM+12, R4 : 
53 00000000G_ EF 3 OO1E MOVAB SCA+224, R3 ; 
06 000000006 EF €9 000 BLBC GCA+ 156 1$ : 0347 
01 09 «AC 02 EO 900 ¢ BB #2, ACTION_LIST+1, 1$ : 0352 
10 000000006 EF £9 900 2 1$ BLBC = FNCT+20, 2$ + 0361 
0B 09 AC 03 €1 000 BBC #3, ACTION_LIST+1, 2$ ; 
01 DD 909 3 PUSHL #1 : 0367 
000000006 _ 8F bp 004 PUSHL #RNFIFT : 
045E 31 90046 BRW 97 : 
OF 09 AC 04 £1 00049 28 BBC #4, ACTION_LIST+1, 4$ : 0386 
000000006 EF 09 FB 0004 CALLS N + 0389 
03 63 £9 0005 BLBC  SCA+224, 3$ > 0393 
FC =A3 «(D4 0005 CLRL  S$CA+220 > 0395 
63 D4 00058 3S: CLRL CAs 4 : 0397 
15 09 AC 99 E1 0090 4$: BBC #5, ACTION_LIST+1, 5$ : 0400 
4 Dd 0006 PUSHL R4 + 0405 
FC AG «OF 00064 PUSHAB NUMPRM+8 : 
FB AG OF 00067 PUSHAB NUMPRM+4 : 
56 DD 0006A PUSHL R6 : 
000000006 _ EF 04 F 006 CALLS #4, GETNUM ; 
Fo AG 0 pO 000 MOVL RO. NUMPRM ; 
52 04 AC DO 00077 5$ HANDLER, R + 0409 | 
00000006 __8F gi 3 CF O78 R2, #1, #214 ; 
039A 0321 0 C 09 at WORD 31$-6$.- : 
030C TEA oC 21 3$- 7 ; 
0224 0379 BC 09 $-6$.- : | 
030¢ 01F5 165 C 8 $-6$.- ; | 
0283 0283 1EA 9A OOA $-6$.- F | 
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; Routine Size: 1199 bytes, Routine Base: S$CODE$ + 0000 
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PSECT SUMMARY 
Name Bytes Attributes 


SCODES 1199 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


einen Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBIXPORT.L32;1 590 0 0 252 00:00.2 
“$255$DUA28: CRUNOFF . SRCJDSRLIB.L32;1 1248 207 16 64 00:00.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DOCM/9BJ=OBJ$:DOCM MSRC$:DOCM/UPDATE=(ENH$:DOCM) 
1199 code + 0 data bytes 
0:19.6 


Elapsed fee: 00:48:5 
; Lexemes/CPU-Min: $336 


RB, Used: 251 pages 
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